home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / SAMPLE ONE PAGE ANIMATION.bas < prev    next >
BASIC Source File  |  2023-02-26  |  603b  |  24 lines
  1. 10  REM 
  2. 20  REM  SAMPLE ONE PAGE ANIMATION
  3. 30  REM 
  4. 40  REM   GRAPHICS WORKSHOP II
  5. 50  REM   BY ROBERT R DEVINE
  6. 60  REM 
  7. 70  REM   COPYRIGHT (C) 1983
  8. 80  REM   BY MICROSPARC INC.
  9. 90  REM   ALL RIGHTS RESERVED
  10. 100  REM 
  11. 110  HGR2 : CALL 37799
  12. 120  POKE 251,144
  13. 130 HR = 2:HL = 0
  14. 140  POKE 254,HR: POKE 255,HL
  15. 150  FOR VT = 0 TO 170  STEP 2
  16. 160  POKE 252,VT: POKE 253,VT +11
  17. 170  CALL 37679: FOR X = 1 TO 25: NEXT : CALL 37679
  18. 180  NEXT 
  19. 190  FOR VT = 170 TO 0  STEP  -2
  20. 200  POKE 252,VT: POKE 253,VT +11
  21. 210  CALL 37679: CALL 37679
  22. 220  NEXT 
  23. 230 HR = HR +2:HL = HL +2: IF HR >39  THEN 130
  24. 240  GOTO 140